 3 8 div 50 mult .repro store
 10 .up store
 rnd
''''''''''''''''''''''''  Gene:  1 Begins at position  12  '''''''''''''''''''''''
 else
 -22 inc

''''''''''''''''''''''''  Gene:  1 Ends at position  14  '''''''''''''''''''''''
''''''''''''''''''''''''  Gene:  2 Begins at position  15  '''''''''''''''''''''''
 else
 stop
''''''''''''''''''''''''  Gene:  2 Ends at position  16  '''''''''''''''''''''''
 stop
 *.genes 1777 div 10 10 .up store
 *.aim 256 sub 3 ceil 1 sub .aimright store

''''''''''''''''''''''''  Gene:  3 Begins at position  34  '''''''''''''''''''''''
 cond
 start
 *.body 1500 div 50 mult .repro store
 -6 .shoot store
 10 .up store
 *.aim 256 sub 1 sub .aimright store

''''''''''''''''''''''''  Gene:  3 Ends at position  55  '''''''''''''''''''''''
''''''''''''''''''''''''  Gene:  4 Begins at position  56  '''''''''''''''''''''''
 else
 rnd
''''''''''''''''''''''''  Gene:  4 Ends at position  57  '''''''''''''''''''''''
''''''''''''''''''''''''  Gene:  5 Begins at position  58  '''''''''''''''''''''''
 else
 -22 inc

''''''''''''''''''''''''  Gene:  5 Ends at position  60  '''''''''''''''''''''''
''''''''''''''''''''''''  Gene:  6 Begins at position  61  '''''''''''''''''''''''
 else
 stop
''''''''''''''''''''''''  Gene:  6 Ends at position  62  '''''''''''''''''''''''
 stop
 *.genes 1777 div 10 .up store
 sub -17 sqr .aim dec

''''''''''''''''''''''''  Gene:  7 Begins at position  75  '''''''''''''''''''''''
 else
 1 sub stop
''''''''''''''''''''''''  Gene:  7 Ends at position  78  '''''''''''''''''''''''
